/*
 * Copyright (c) 2007, Tim Stack
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions are met:
 *     * Redistributions of source code must retain the above copyright
 *       notice, this list of conditions and the following disclaimer.
 *     * Redistributions in binary form must reproduce the above copyright
 *       notice, this list of conditions and the following disclaimer in the
 *       documentation and/or other materials provided with the distribution.
 *     * Neither the name of Tim Stack nor the
 *       names of its contributors may be used to endorse or promote products
 *       derived from this software without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY TIM STACK ``AS IS'' AND ANY
 * EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
 * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
 * DISCLAIMED. IN NO EVENT SHALL TIM STACK BE LIABLE FOR ANY
 * DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
 * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
 * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
 * ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 */

#include <assert.h>
#include <string.h>

#include "reflecxx.h"

reflecxx_primitive_t reflecxx_field_get(void *obj, struct reflecxx_field *rf)
{
    reflecxx_primitive_t retval;
    char *cobj = (char *)obj;

    assert(obj != NULL);
    assert(rf != NULL);

    switch (rf->rf_full_type.rft_type) {
    case RT_STRUCT:
    case RT_UNION:
    case RT_ARRAY:
	retval.rp_pointer = &cobj[rf->rf_bit_offset / 8];
	break;
    default:
	memset(&retval, 0, sizeof(retval));
	memcpy(&retval, &cobj[rf->rf_bit_offset / 8], rf->rf_bit_length / 8);
	break;
    }
    
    return retval;
}

void reflecxx_field_set(void *obj,
			struct reflecxx_field *rf,
			reflecxx_primitive_t value)
{
    char *cobj = (char *)obj;
    
    switch (rf->rf_full_type.rft_type) {
    case RT_STRUCT:
    case RT_UNION:
    case RT_ARRAY:
	memcpy(&cobj[rf->rf_bit_offset / 8],
	       value.rp_pointer,
	       rf->rf_bit_length / 8);
	break;
    default:
	memcpy(&cobj[rf->rf_bit_offset / 8], &value, rf->rf_bit_length / 8);
	break;
    }
}

struct reflecxx_field *
reflecxx_field_by_name(struct reflecxx_full_type *rft,
		       const char *name,
		       int name_len)
{
    struct reflecxx_field *retval = NULL;
    struct reflecxx_struct *rs;
    int lpc;

    assert(rft != NULL);
    assert(rft->rft_type == RT_STRUCT);
    assert(name != NULL);

    if (name_len == -1)
	    name_len = strlen(name);

    rs = rft->rft_type_info.st;
    for (lpc = 0; lpc < rs->rs_field_count; lpc++) {
	if (strncmp(rs->rs_fields[lpc].rf_name, name, name_len) == 0 &&
	    strlen(rs->rs_fields[lpc].rf_name) == (size_t)name_len) {
	    retval = &rs->rs_fields[lpc];
	    break;
	}
    }
    
    return retval;
}
